home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontsh13 / fontshow.bas < prev    next >
Encoding:
BASIC Source File  |  1994-03-17  |  1.3 KB  |  32 lines
  1. Option Explicit
  2.  
  3. 'Windows declarations
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  5. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  6. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal Msg As Integer, ByVal Wp As Integer, Lp As Any) As Long
  7.  
  8. ' For the SendMessage to get the number of selected fonts
  9. Global Const WM_USER = &H400
  10. Global Const LB_GETSELCOUNT = WM_USER + 17
  11.  
  12. Global Numfonts, FontsSel, HeadingFont$, RefreshSample, RefreshDefault, SampleChanged, ContPrint, DoPara, CRLF, CurrFont$, IniFile$
  13. Global Def8$, Def9$, Def10$, Def11$, Def12$, Def14$
  14. Global Def16$, Def18$, Def24$, Def36$, Def48$, Def60$, DefSample$
  15. Global Temp8$, Temp9$, Temp10$, Temp11$, Temp12$, Temp14$
  16. Global Temp16$, Temp18$, Temp24$, Temp36$, Temp48$, Temp60$, TempSample$
  17.  
  18. 'Display splash screen
  19. Sub Main ()
  20.  
  21.     'Show start-up form
  22.     FS_Title.Show
  23.     FS_Title.Refresh
  24.  
  25.     'Show main form
  26.     Fontshow.Show
  27.  
  28.     'Unload start-up form
  29.     Unload FS_Title
  30. End Sub
  31.  
  32.